-- card: 29230 from stack: in.03 еее
-- bmap block id: 2112
-- flags: 0000
-- background id: 2766
-- name: 
----- HyperTalk script -----
on openCard
  global ladderHole
  if ladderHole
  then set the loc of card button "ladder" to 138,177
else set the loc of card button "ladder" to 180,120
send cardOpened to background
end openCard

on move
  global direction,chase,blasting,ladderHole,blastDam,holeDam
  global causeOfDeath
  if direction = "south" or direction = "rear" then
    if blastDam then
      go to card id 26754
    else
      if holeDam then
        go to card id 27307
      else
        go to card id 26200
      end if
    end if
    exit move
  end if
  if direction = "down" then
    if ladderHole then
      go to card id 30264
      exit move
    else
      answer "Do you really want to go into the shaft??" with "yes"or"no"
      if it is "no" then exit move
      put "shaft1" into causeOfDeath
      go to card id 3409
      exit move
    end if
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried,ladderHole,oldRoom,newRoom,cardID,prevID
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="ladder" then
    hide object
    set the loc of object to 180,120
    put false into ladderHole
    put "30264" into oldRoom
    put "6984" into newRoom
    send roomChange to background
    put cardID into prevID
  end if
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried,ladderHole
  answer "Drop object in this room, or into the shaft?" with "shaft" or "room"
  if it="shaft" then
    if ladderHole then
      put "30264" into dropRoom
    else
      put "6984" into dropRoom
    end if
  end if
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried,ladderHole,oldRoom,newRoom
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="ladder" then
    show object
    set the loc of object to 170,134
    set the loc of object to 159,148
    set the loc of object to 148,162
    set the loc of object to 138,177
    put "The rope ladder is tied to the pitons and leads into the shaft." into field 3
    put true into ladderHole
    put "6984" into oldRoom
    put "30264" into newRoom
    send roomChange to background
    exit use
  end if
  -- update carried if object lost (or do so in inv. card button)
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=128 top=226 right=262 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=79 top=224 right=260 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=195 top=153 right=189 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=36 top=158 right=194 bottom=70
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=26 top=211 right=247 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=49 top=112 right=148 bottom=83
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=99 top=164 right=187 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a shaft leading down.  It would be dangerous " into field 3
    put "to try to climb down without proper equipment" after field 3
    put false into examFlag
  else
    put "down" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=163 top=102 right=138 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID,ladderHole,direction
  put the name of the target into object
  if takeFlag then
    send take to card id cardID
    exit mouseUp
  end if
  if examFlag then
    put "a rope ladder" into field 3
    put false into examFlag
    exit mouseUp
  end if
  if ladderHole then
    put "down" into direction
    send move to card id cardID
    exit mouseUp
  else
    put "a rope ladder" into field 3
    exit mouseUp
  end if
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=125 top=152 right=164 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "You can't take the pitons. They are solidly attached." into field 3
    put false into takeFlag
  else
    put "Two pitons imbebbed in the stone floor." into field 3
    put false into examFlag
  end if
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=117 top=186 right=200 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part contents for background part 25
----- text -----
Square Room
(looking north)

-- part contents for background part 24
----- text -----
You are in a small square room with a doorway to the south.  There is a smooth-walled shaft leading to a room about 30 feet below.  It looks like it would be dangerous to attempt climbing in the shaft without proper equipment.



-- part contents for background part 36
----- text -----
0